home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / rakit1.zip / RA-QUES.ZIP / NEWUSER.Q-A < prev    next >
Text File  |  1990-08-18  |  7KB  |  206 lines
  1. postinfo
  2. ClearScreen
  3. Display "Welcome!  My name is xxxx xxxxxxx and I am the system owner/operator. ||"
  4. ChangeColor 15 1
  5. Display "This system is in my home.  To have access to this system, you must|"
  6. Display "provide me with information on how to contact you, if I need to do so.|"
  7. Display "My personal information is on the logon screen and this is a request for|"
  8. Display "equal information. This is not optional to any who wish access here.||"
  9. ChangeColor 14 1 
  10. Display "This questionaire is designed for you to gain the fullest available access.|" 
  11. Display "The answers given can only be seen by the System Owner and are held totally|"
  12. Display "confidential between you and us.||"
  13. Display "When your questionaire is checked, you will be granted higher access just for|"
  14. Display "taking the time to complete it. Some users will be granted more privilege by|" 
  15. Display "the answers they give.  Those who don't comply and answer are simply removed.|" 
  16. Display "Please answer the following questions truthfully."
  17. Display "||"
  18. ChangeColor 12 0 
  19. Display "Do you agree to comply with this request for equal information, do you|" 
  20. Display "agree to be honest in your responses, and do you understand that these|"  
  21. Display "questions are necessary for responsible management of a serious system?|"  
  22. Display "|" 
  23. ChangeColor 13 0 
  24. Display "Do you understand and agree?    (Y) = Yes  (N) = No > " 
  25. Getchoice YN 1
  26. If 1 = "N" 
  27. ChangeColor 13 0
  28. Display "You appear to believe that this is NOT important or you have made|"
  29. Display "a mistake in your answer.     I will ask you once more.||"
  30. ChangeColor 15 0 
  31. Display "Do you understand and agree?    (Y)=Yes (N)=No > " 
  32. Getchoice YN 1
  33. If 1 = "N" 
  34. Setsecurity 1
  35. OutputAnswer  "Comply Refusal!  : " 1
  36. quit
  37. endif
  38. endif
  39. ClearScreen
  40. ChangeColor 13 0
  41. Display "Thank you. ||"
  42. Display "Due to the fact that the sysop is legally responsible|"
  43. Display "for the content of this system, it must be understood|"
  44. Display "that software piracy is not acceptable here and that|"
  45. Display "the Sysop can read all messages on this Bulletin Board.|"
  46. Display "He reserves the right to delete messages as he sees fit."
  47. Display "||"
  48. ChangeColor 15 0 
  49. Display "Do you understand and agree to this ( 1=Yes 2=No ) ? " 
  50. Getchoice 12 2
  51. If 2 = "2" 
  52. ChangeColor 15 5
  53. Display "You appear to believe that this is NOT important... |"
  54. Display "I will ask you once more.||"
  55. Display "Due to the fact that the sysop is legally responsible|"
  56. Display "for the content of this system, it must be understood|"
  57. Display "that complete compliance is essential and, therefore,|"
  58. Display "mandatory for public users. Your cooperation is important!|"
  59. Display "Refusal to agree to comply causes 0 access privileges.|"
  60. Display "||"
  61. ChangeColor 15 0 
  62. Display "Do you understand and agree to this ( Y=Yes  N=No ) ? " 
  63. Getchoice YN 2
  64. If 2 = "N" 
  65. Setsecurity 1
  66. OutputAnswer  "Comply with Sysop was Refused!  : " 2
  67. quit
  68. endif
  69. endif
  70. Clearscreen
  71. Display "|Thanks very much.||||"
  72. ChangeColor 14 0 
  73. Display "What is your real FULL name? ||" 
  74. Ask 75 3
  75. Display "|||||"
  76. Display "What is your birthdate? || "
  77. Ask 15 4
  78. Clearscreen
  79. Display "|||||||||||||||||||||"
  80. Display "What is your REAL age? "
  81. Ask 3 5
  82. Clearscreen
  83. Display "||||"
  84. Display "What is your street address?  |"
  85. Display " (No Post Office boxes) ||  "
  86. Ask 75 6      
  87. Display "||"
  88. Display "What is your city, state, zip ? ||   " 
  89. Ask 75 7
  90. Display "||"
  91. Clearscreen
  92. Display "|||||"
  93. Display "What is your occupation/employer? ||  "
  94. Ask 75 8 
  95. Display "||"
  96. Display "Where / location & dept? ||"
  97. Ask 75 9 
  98. Display "||"
  99. Display "What is your daytime phone number? ||  "
  100. Ask 25 10
  101. Clearscreen
  102. Display "|||||"
  103. Display "What special interests do you have on BBS systems? ||  "
  104. Ask 75 11
  105. Display "||"
  106. Display "What contribution do you usually make to public BBS systems?||  "
  107. Ask 75 12
  108. Display "||"
  109. Clearscreen
  110. Display "|||||"
  111. Display "Please describe your computer system(s) (1 line). ||  "
  112. Ask 75 13
  113. Clearscreen
  114. Display "|||||"
  115. ChangeColor 14 1
  116. Display "Are you an Electronic Bulletin Board System Operator?   Y=Yes N=No > "
  117. GetChoice YN 14
  118. If 14 = "N"
  119.   ClearScreen
  120. Display "|   ..... Processing Application ...... ||||||||||"
  121.   OutputAnswer  "Comply?   :  " 1
  122.   OutputAnswer  "Agree     :  " 2
  123.   OutputAnswer  "Name      :  " 3
  124.   OutputAnswer  "Birthdate :  " 4
  125.   OutputAnswer  "Age       :  " 5
  126.   OutputAnswer  "Address   :  " 6
  127.   OutputAnswer  "City      :  " 7
  128.   OutputAnswer  "Occupat   :  " 8
  129.   OutputAnswer  "Where     :  " 9
  130.   OutputAnswer  "Dayphone  :  " 10
  131.   OutputAnswer  "Interests :  " 11
  132.   OutputAnswer  "Contrib   :  " 12
  133.   OutputAnswer  "Computer  :  " 13
  134.   clearscreen
  135.   Quit
  136. EndIf
  137. ChangeColor 11 0
  138. Display "Great! Welcome fellow system operator! ||"
  139. Display "Name of your Bulletin Board System...? | "
  140. Ask 75 15
  141. Display "||"
  142. Display "Phone Number of BBS...? | "
  143. Ask 25 16
  144. Display "||"
  145. Display "Type of BBS Software...? | "
  146. Ask 75 17
  147. Display "||"
  148. Display "Purpose of your BBS...? | "
  149. Ask 75 18
  150. Display "||"
  151. Display "Are You A Sysop Of A FIDONET or Similar Network Mail System?  1=Yes 2=No > "
  152. GetChoice 12 19
  153. If 19  = "1"
  154. Display "Network Name, Location, Zone: Net/Node Number ... |  "
  155. Ask 25 20
  156. EndIf
  157. Display "|||"
  158. ChangeColor 15 10
  159. ClearScreen
  160. Display "|||"
  161. Display "-=================================================================-|"
  162. Display " Thank You.... Visiting sysops are always giving full access here. |"
  163. Display "-=@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@=-|"
  164. Display "-=@@@@  @@@@@  @      @ @@@@@@    @@@    @@ @@@@@ @     @@  @@@@@=-|"
  165. Display "-=@@@@  @@@@@  @      @ @@@@@@    @@@    @@ @@@@@ @     @@  @@@@@=-|"
  166. Display "-=@@@@ @@@@@@@ @ @@@@@@ @@@@@ @@@@ @ @@@@ @  @@@  @ @@@@@@  @@@@@=-|"
  167. Display "-=@@@@ @@@@@@@ @ @@@@@@ @@@@@ @@@@@@ @@@@ @ @ @ @ @ @@@@@@  @@@@@=-|"
  168. Display "-=@@@@ @@@ @@@ @   @@@@ @@@@@ @@@@@@ @@@@ @ @@ @@ @   @@@@  @@@@@=-|"
  169. Display "-=@@@@ @@@ @@@ @ @@@@@@ @@@@@ @@@@@@ @@@@ @ @@@@@ @ @@@@@@  @@@@@=-|"
  170. Display "-=@@@@@ @ @ @ @@ @@@@@@ @@@@@ @@@@ @ @@@@ @ @@@@@ @ @@@@@@@@@@@@@=-|"
  171. Display "-=@@@@@  @@@  @@      @     @@    @@@    @@ @@@@@ @     @@  @@@@@=-|"
  172. Display "-=@@@@@ @@@@  @@      @     @@    @@@    @@ @@@@@ @     @@  @@@@@=-|"
  173. Display "-=@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@=-|"
  174. Display "-= You will temporarily have higher access until upgraded ========-|"
  175. Display "-=================================================================-|"
  176. Setsecurity 25
  177. Display "| Press enter.....|"
  178. Ask 1 1
  179. PostInfo
  180. Display "|   ..... Processing Application ...... ||||||||||"
  181. Display "|||"
  182.   OutputAnswer  "Agree    : " 2
  183.   OutputAnswer  "Name     : " 3
  184.   OutputAnswer  "Birthdate: " 4
  185.   OutputAnswer  "Age      : " 5
  186.   OutputAnswer  "Address  : " 6
  187.   OutputAnswer  "City     : " 7
  188.   OutputAnswer  "Occupat  : " 8
  189.   OutputAnswer  "Where    : " 9
  190.   OutputAnswer  "Dayphone : " 10
  191.   OutputAnswer  "Special  : " 11
  192.   OutputAnswer  "Contrib  : " 12
  193.   OutputAnswer  "Computer : " 13
  194.   OutputAnswer  ".....  Sysop Data  ......: " 14
  195.   OutputAnswer  "BBSname  : " 15
  196.   OutputAnswer  "BBSnumber: " 16
  197.   OutputAnswer  "BBSoftwar: " 17
  198.   OutputAnswer  "BBpurpose: " 18
  199.   OutputAnswer  "FidoNet? : " 19
  200.   OutputAnswer  "Net/Node : " 20
  201. endif
  202. clearscreen
  203. quit
  204. 
  205.  
  206.